home *** CD-ROM | disk | FTP | other *** search
/ Mesolore / Mesolore - Disc 1.iso / pc / data / Buttons.cst / 00288_Script_down finger < prev    next >
Text File  |  2001-04-13  |  739b  |  47 lines
  1. -- PROPERTIES --
  2.  
  3. property spriteNum, myCursor, myMask
  4.  
  5. -- internal properties
  6. property myMember
  7.  
  8.  
  9.  
  10. -- EVENT HANDLERS --
  11.  
  12.  
  13. on beginSprite me
  14.   Initialize me
  15. end beginSprite
  16.  
  17.  
  18.  
  19. -- CUSTOM HANDLERS --
  20.  
  21. on Initialize me -- sent by beginSprite
  22.   myMember = sprite(me.spriteNum).member
  23.   myCursor = the number of member "d_finger"
  24.   myMask = myCursor +1
  25. end Initialize
  26.  
  27. on mousewithin me
  28.   myMember = sprite(me.spriteNum).member
  29.   if the type of myMember = #field then
  30.     if the forecolor of line the mouseline of field myMember = 255 then
  31.       cursor 0
  32.     else
  33.       cursor [myCursor,myMask]
  34.     end if
  35.   else
  36.     cursor [myCursor,myMask]
  37.   end if
  38. end
  39.  
  40. on mouseLeave me
  41.   cursor 0
  42.   pass
  43. end
  44.  
  45.  
  46.  
  47.